home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / nt4.0 server / DRVLIB.NIC / SGATE / OEMSETUP.INF < prev   
Encoding:
INI File  |  1996-07-31  |  58.6 KB  |  1,555 lines
  1. [Identification]
  2.     OptionType = NetAdapter
  3.  
  4. [PlatformsSupported]
  5.     MCA
  6.     ISA
  7.     EISA
  8.     "Jazz-Internal Bus"
  9.  
  10. [LanguagesSupported]
  11.     ENG
  12.  
  13. [Options]
  14.     aclser
  15.  
  16. [AdapterInfo]
  17.     aclser     = "ACL/Avanstar Family",    aclser,     aclser    ;DEL   0 1
  18.  
  19. [FileConstants]
  20.     ExitState   = "Active"
  21.     OldVersionExisted = $(FALSE)
  22.     HdwDriverComponentExists = $(FALSE)
  23.     DriverPath      = $(!STF_NTPATH)"\drivers"
  24.     UtilityInf     = "UTILITY.INF"
  25.     subroutninf    = "SUBROUTN.INF"
  26. ;DEL    ParamInf        = "NCPARAM.INF"
  27.     HandleNull   = ""
  28.     ACLCONF_HANDLE = $(HandleNull)
  29.     AdapterList = ^(AdapterInfo,0)
  30.     AdapterTitleList = ^(AdapterInfo, 1)
  31.     AdapterHardwareNameList = ^(AdapterInfo, 2)
  32.     AdapterHardwareDriverList = ^(AdapterInfo, 3)
  33. ;DEL AdapterHardwareTypeList = ^(AdapterInfo, 4)
  34.     AdapterTitle = *($(AdapterTitleList), ~($(AdapterList), $(Option)))
  35.     AdapterHardwareName = *($(AdapterHardwareNameList), ~($(AdapterList), $(Option)))
  36.     AdapterHardwareDriver = *($(AdapterHardwareDriverList), ~($(AdapterList), $(Option)))
  37. ;DEL AdapterHardwareType = *($(AdapterHardwareTypeList), ~($(AdapterList), $(Option)))
  38.     AdapterRule = *($(AdapterHardwareDriverList), ~($(AdapterList), $(Option)))
  39.     AdapterServiceName = ""
  40.     AdapterName = ""    ; aclser0, ...
  41.  
  42.     NetEventDLL     = "%SystemRoot%\System32\netevent.dll"
  43.     IoLogMsgDLL     = "%SystemRoot%\System32\IoLogMsg.dll"
  44.     Manufacturer    = "StarGate"
  45.     SoftwareType    = "driver"
  46.  
  47.     ProductMajorVersionHdwDriver     = "1"
  48.     ProductMinorVersionHdwDriver     = "18"
  49.     ProductVersionHdwDriver  = $(ProductMajorVersionHdwDriver)"."$(ProductMinorVersionHdwDriver)
  50.     ProductSoftwareNameHdwDriver = $(AdapterHardwareDriver)
  51.     ProductSoftwareImagePathHdwDriver = "%SystemRoot%\System32\drivers\"$(AdapterHardwareDriver)".sys"
  52.     NetRuleSoftwareTypeHdwDriver     = $(AdapterHardwareDriver)"sys "$(AdapterHardwareDriver)"Driver"
  53.     NetRuleSoftwareUseHdwDriver      = $(SoftwareType)
  54.     NetRuleSoftwareBindFormHdwDriver = """"$(AdapterHardwareDriver)"Driver"" yes no container"
  55.     NetRuleSoftwareClassHdwDriver    = {$(AdapterHardwareDriver)"Driver basic"}
  56.     NetRuleSoftwareHiddenHdwDriver   = 1
  57.     NetRuleHardwareType     = $(AdapterRule)" "$(AdapterRule)"Adapter"
  58.     NetRuleHardwareBindForm = " yes yes container"
  59.     NetRuleHardwareClass    = {$(AdapterHardwareDriver)"Adapter basic"}
  60.     ProductHardwareName         = $(AdapterHardwareDriver)
  61.     AdapterParameters = {}
  62.  
  63.     ProductKeyNameHdwDriver  = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSoftwareNameHdwDriver)"\CurrentVersion"
  64.     ParamKeyName    = $(!NTN_ServiceBase)"\"$(ProductHardwareName)"\Parameters"
  65.  
  66. [GeneralConstants]
  67.     ExitCodeOk     = 0
  68.     ExitCodeCancel = 1
  69.     ExitCodeFatal  = 2
  70.     KeyNull         = ""
  71.     MAXIMUM_ALLOWED   = 33554432
  72.     RegistryErrorIndex = NO_ERROR
  73.     KeyProduct      = ""
  74.     KeyParameters   = ""
  75.     TRUE         = 1
  76.     FALSE        = 0
  77.     NoTitle      = 0
  78.     fRemoveACL     = TRUE
  79.  
  80. [DebugOptions]
  81.     !DebugOutputControl = 1
  82.  
  83. [UiVars]
  84. from      = ""
  85. to        = ""
  86.     !STF_NTDRIVE        = ""
  87.     !STF_NTPATH         = ""
  88.     !STF_WINDOWSPATH    = "" ? $(!LIBHANDLE) GetWindowsNtDir
  89.     !STF_WINDOWSSYSPATH = "" ? $(!LIBHANDLE) GetWindowsNtSysDir
  90.     !STF_FLOPPYLIST     = {} ? $(!LIBHANDLE) GetFloppyDriveLetters
  91.     !STF_UNUSEDDRIVES   = {} ? $(!LIBHANDLE) GetUnusedDrives
  92.     !STF_LANGUAGE       = "ENG"
  93.     VolumeList      = {} ? $(!LIBHANDLE) GetHardDriveLetters
  94.     VolumeFreeList  = {} ? $(!LIBHANDLE) GetHardDriveFreeSpace
  95.     VolumeFSList    = {} ? $(!LIBHANDLE) GetHardDriveFileSystems
  96.     DestVolume      = ""
  97.     MinHelpID   = 25000
  98.     MaxHelpID   = 25999
  99.  
  100. [date]
  101.     Now = {} ? $(!LIBHANDLE) GetSystemDate
  102.  
  103. [Identify]
  104.     read-syms Identification
  105.     set Status     = STATUS_SUCCESSFUL
  106.     set Identifier = $(OptionType)
  107.     set Media      = #("Source Media Descriptions", 1, 1)
  108.     Return $(Status) $(Identifier) $(Media)
  109.  
  110. [ReturnOptions]
  111.     set Status        = STATUS_FAILED
  112.     set OptionList     = {}
  113.     set OptionTextList = {}
  114.     set LanguageList = ^(LanguagesSupported, 1)
  115.     Ifcontains(i) $($0) in $(LanguageList)
  116.         ifstr(i) $($1) == ""
  117.             goto returnoptions
  118.         endif
  119.         set PlatformList = ^(PlatformsSupported, 1)
  120.         Ifcontains(i) $($1) in $(PlatformList)
  121.             goto returnoptions
  122.         else
  123.             set Status = STATUS_NOTSUPPORTED
  124.             goto finish_ReturnOptions
  125.         endif
  126.     Else
  127.         set Status = STATUS_NOLANGUAGE
  128.         goto finish_ReturnOptions
  129.     Endif
  130. returnoptions = +
  131.     set OptionList     = ^(Options, 1)
  132.     set OptionTextList = ^(OptionsText$($0), 1)
  133.     set Status         = STATUS_SUCCESSFUL
  134. finish_ReturnOptions = +
  135.     Return $(Status) $(OptionList) $(OptionTextList)
  136.  
  137. ;DEL beg
  138. ;[Shell Commands]
  139. ;    read-syms DebugOptions
  140. ;    set-title "Serial Setup"
  141. ;    set-subst LF = "\n"
  142. ;    set Exit_Code = $(ExitCodeOk)
  143. ;    Debug-Output "OEMNIO8P.INF: STF_CWDDIR is "$(!STF_CWDDIR)
  144. ;    Debug-Output "OEMNIO8P.INF: STF_RANFROM is "$(!STF_RANFROM)
  145. ;    ifstr(i) $(!STF_RANFROM) != ""
  146. ;        ifstr(i) $(!STF_RANFROM) != $(!STF_CWDDIR)"SERIAL\"
  147. ;           set !STF_SRCDIR = $(!STF_RANFROM)
  148. ;        endif
  149. ;    endif
  150. ;    LoadLibrary "x" $(!STF_CWDDIR)setupdll.dll !LIBHANDLE
  151. ;    shell "" InstallOption ENG Specialix $(!STF_SRCDIR)
  152. ;    FreeLibrary $(!LIBHANDLE)
  153. ;    set Status = $($R0)
  154. ;    Return $(Status)
  155. ;DEL end
  156.  
  157.  
  158. [InstallOption]
  159.     read-syms DebugOptions
  160.     Debug-Output "OEMNACL.INF: In [InstallOption] section"
  161.     set Status = STATUS_FAILED
  162.     set Option    = $($1)
  163.     set SrcDir    = $($2)
  164.     set AddCopy   = $($3)
  165.     set DoCopy    = $($4)
  166.     set DoConfig  = $($5)
  167.     set !SourceDir = $($2)
  168. ;    ifstr SrcDir == "A:\"
  169. ;        ifstr $(!STF_SRCDIR_OVERRIDE) == ""
  170. ;        set !STF_SRCDIR_OVERRIDE = $(!STF_CWDDIR)
  171. ;        endif
  172. ;    endif
  173.     read-syms GeneralConstants
  174.     read-syms FileConstants
  175. ;    Debug-Output "Calling GetBusTypeNum"
  176.     Shell $(UtilityInf), GetBusTypeNum
  177.     set BusTypeNum = $($R1)
  178.     Debug-Output "BusTypeNum = "$(BusTypeNum)
  179.     Debug-Output "OEMNACL.INF: Language = "$($0)
  180.     Debug-Output "OEMNACL.INF: OptionID = "$($1)
  181.     Debug-Output "OEMNACL.INF: SourceDirectory = "$($2)
  182.     Debug-Output "OEMNACL.INF: AddCopy = "$(AddCopy)
  183.     Debug-Output "OEMNACL.INF: DoCopy = "$(DoCopy)
  184.     Debug-Output "OEMNACL.INF: DoConfig = "$(DoConfig)
  185.     Debug-Output "OEMNACL.INF: Media = "$(Media)
  186.     set LanguageList = ^(LanguagesSupported, 1)
  187.     Ifcontains(i) $($0) NOT-IN $(LanguageList)
  188.         Debug-Output "OEMNACL.INF: returning STATUS_NO_LANGUAGE"
  189.         return STATUS_NOLANGUAGE
  190.     Endif
  191.     set-subst LF = "\n"
  192.     Debug-Output "OEMNACL.INF: AdapterTitle = "$(AdapterTitle)
  193.     Debug-Output "OEMNACL.INF: AdapterHardwareName = "$(AdapterHardwareName)
  194.     Debug-Output "OEMNACL.INF: AdapterHardwareDriver = "$(AdapterHardwareDriver)
  195.  
  196.     read-syms BindingInfo-$(AdapterHardwareDriver)
  197.     set NetRuleSoftwareBindableHdwDriver = $(BindingInfo)
  198. ;    Debug-Output "OEMNACL.INF: BindingInfo = "$(BindingInfo)
  199.     read-syms DialogConstants$(!STF_LANGUAGE)
  200.     ifstr(i) $(!NTN_Origination) == "NCPA"
  201.         set Continue = "OK"
  202.     endif
  203.     read-syms FileConstants$(!STF_LANGUAGE)
  204.     detect date
  205.     Debug-Output "OEMNACL.INF: date = "$(Now)
  206.     set-title  $(FunctionTitle)
  207.     set to   = Begin
  208.     set from = Begin
  209.     set CommonStatus = STATUS_SUCCESSFUL
  210.     EndWait
  211. Begin = +
  212.     Ifstr(i) $(!NTN_InstallMode) == deinstall
  213.         set StartLabel = removeadapter
  214.     else-Ifstr(i) $(!NTN_InstallMode) == Update
  215.         set StartLabel = UpgradeSoftware
  216.     else-Ifstr(i) $(!NTN_InstallMode) == bind
  217.         set StartLabel = bindingadapter
  218.     else-Ifstr(i) $(!NTN_InstallMode) == configure
  219.         set StartLabel = getAdapterSettings
  220.  
  221.         Ifstr(i) $(ProductKeyNameHdwDriver) == $(!NTN_RegBase)
  222.             Debug-Output "This should not have happened!  Cannot configure the "$(AdapterHardwareName)" driver software."
  223.             Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  224.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  225.                 Debug-Output "ShellCode error: cannot get an error string."
  226.                 goto ShellCodeError
  227.             endif
  228.             set Error = $($R0)
  229.             set from = end
  230.             set to = end
  231.             goto nonfatalinfo
  232.         endif
  233. ;DEL pd        Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  234.         Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  235.             Debug-Output "Shell code error: DoAskSource"
  236.             Goto ShellCodeError
  237.         Else-Ifstr(i) $($R0) == STATUS_FAILED
  238.             Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  239.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  240.                 goto ShellCodeError
  241.             endif
  242.             set Error = $($R0)
  243.             Goto fatal
  244.         Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  245.             set CommonStatus = STATUS_USERCANCEL
  246.             Goto successful
  247.         Endif
  248.         Set SrcDir = $($R1)
  249.         install Correct-SrcDir
  250.         Debug-Output "We need to determine how to find out which adapter"
  251.         Debug-Output "  we should be configuring!!!!!!"
  252.         set from = writeparameters
  253.         Debug-Output "setting from = "$(from)
  254.     else
  255.         set StartLabel = installadapter
  256.         set OEM_ABANDON_OPTIONS = {}
  257.         set OEM_ABANDON_SOFTWARE = FALSE
  258.         set OEM_ABANDON_ON = TRUE
  259.     endif
  260. ;    Debug-Output "OEMNACL.INF: Option is: "$(Option)
  261.     set to = $(fatal)
  262.     Goto $(StartLabel)
  263.  
  264. installadapter = +
  265.     Debug-Output "******************Entering installadapter******************"
  266. ; 
  267.  
  268.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyNameHdwDriver) +
  269.                $(MAXIMUM_ALLOWED) KeyProductHdwDriver
  270.     Debug-Output "ProductKeyNameHdwDriver = "$(ProductKeyNameHdwDriver)
  271.     Debug-Output "KeyProductHdwDriver =    "$(KeyProductHdwDriver)
  272.  
  273.     Ifstr $(KeyProductHdwDriver) != $(KeyNull)
  274.         CloseRegKey $(KeyProductHdwDriver)
  275.         Shell $(UtilityInf), CardExistedDlg
  276.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  277.             Debug-Output "ShellCode error: --One adapter all ready exists, install another-- FAILED."
  278.             goto ShellCodeError
  279.         endif
  280.         ifstr(i) $($R1) != "OK"
  281.             goto end
  282.         endif
  283.         set HdwDriverComponentExists = $(TRUE)
  284.         set OldVersionExisted = $(TRUE)
  285.     EndIf
  286.  
  287.     goto skipoptions
  288.  
  289. skipoptions = +
  290.     Debug-Output "******************Entering skipoptions******************"
  291.  
  292.     ifint $(HdwDriverComponentExists) == $(TRUE)
  293.         ifstr(i) $(!NTN_InstallMode) == configure
  294.             goto getAdapterSettings
  295.         endif
  296.     endif
  297.  
  298.     StartWait
  299.  
  300. ;---------------------------------------------------- VIV  8/31/1993 begin
  301.     ifstr(i) $(!NTN_InstallMode) == "install"
  302.         ;
  303.         ; Get Number to add to Hardware Driver.
  304.         ;
  305.         shell $(UtilityInf) AssignAdapterNumber
  306.  
  307.         set AdapterName = $(ProductHardwareName)$($R1)
  308.  
  309.         Debug-Output "OEMNACL.INF: AdapterName = "$(AdapterName)
  310.     endif
  311. ;---------------------------------------------------- VIV  8/31/1993 end
  312.  
  313.     Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  314.     Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  315.         Debug-Output "Shell code error: DoAskSource"
  316.         Goto ShellCodeError
  317.     Else-Ifstr(i) $($R0) == STATUS_FAILED
  318.         Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  319.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  320.             goto ShellCodeError
  321.         endif
  322.         set Error = $($R0)
  323.         Goto fatal
  324.     Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  325.         set CommonStatus = STATUS_USERCANCEL
  326.         Goto successful
  327.     Endif
  328.     Set SrcDir = $($R1)
  329.     install Correct-SrcDir
  330.     ifint $(HdwDriverComponentExists) == $(FALSE)
  331.         ifstr(i) $(!NTN_InstallMode) == "install"
  332.                ;
  333.                ; Ask for source to copy.
  334.                ;
  335.                Ifstr(i) $(DoCopy) == "YES"
  336.             Endif
  337.                Debug-Output "OEMNACL.INF: SrcDir = "$(SrcDir)
  338.  
  339.             ;
  340.             ; Expand and copy files to the windows directory
  341.             ;
  342.             install "Install-Option"
  343.                Debug-Output "OEMNACL.INF: STF_INSTALL_OUTCOME = "$(STF_INSTALL_OUTCOME)
  344.             ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
  345.                   Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  346.                   ifint $($ShellCode) != $(!SHELL_CODE_OK)
  347.                       goto ShellCodeError
  348.                   endif
  349.                   set Error = $($R0)
  350.                   goto fatal
  351.             endif
  352.  
  353.         LoadLibrary "a" $(!STF_WINDOWSSYSPATH)"\"aclconf.dll ACLCONF_HANDLE
  354.  
  355.         ;
  356.         ; Copy the Control Programs that have already been expanded
  357.         ; to the Registry
  358.         ;
  359.             LibraryProcedure Result, $(ACLCONF_HANDLE), +
  360.                             ACLPutCPDataToRegistry, +
  361.                             $(!STF_WINDOWSSYSPATH)"\", +
  362.                             $(ParamKeyName), +
  363.                             $(BusTypeNum)
  364.         ;
  365.         ; Remove the Control Programs from windows directory
  366.         ;
  367.         set RemoveList = {}
  368.         set CPList = ^( Files-CP, 2 )
  369.            ForListDo $(CPList)
  370.                 set RemoveList = >($(RemoveList), $(!STF_WINDOWSSYSPATH)\$($))
  371.            EndForListDo
  372.         ForListDo $(RemoveList)
  373.                 LibraryProcedure Status , $(!LIBHANDLE), DelFile $($)
  374.         EndForListDo
  375.         endif
  376.     endif
  377.     set from = addHdwDriverComponent
  378.  
  379.     goto getAdapterSettings
  380.  
  381.  
  382. addHdwDriverComponent = +
  383.     Debug-Output "******************Entering addHdwDriverComponent******************"
  384.  
  385.     set ACLSpecificString = $(AdapterHardwareName)
  386.     Ifint $(HdwDriverComponentExists) == $(TRUE)
  387.         goto addAdapterComponent
  388.     Endif
  389.     ;
  390.     ; Add hives: \SOFTWARE\StarGate\aclser\CurrentVersion and ...\NetRules
  391.     ;
  392.     Debug-Output "OEMNACL.INF: Adding HdwDriverComponent"
  393.     set TypeofService = "kernelautostart"
  394.     set ServiceOrderGroup = "Extended base"
  395.     set Dependencies = {}
  396.     set ObjectName = ""
  397.     set TypeSupported = "7"
  398.     set EventLogLocation = "System"
  399.     set ErrorControlValue = 1
  400.  
  401.     Shell $(UtilityInf), AddSoftwareComponent, +
  402.                                 $(Manufacturer), +
  403.                                 $(ProductSoftwareNameHdwDriver), +
  404.                                 $(ProductSoftwareNameHdwDriver), +
  405.                                 $(ProductSoftwareTitleHdwDriver), +
  406.                                 $(STF_CONTEXTINFNAME), +
  407.                                 $(ProductSoftwareImagePathHdwDriver), +
  408.                                 $(TypeofService), +
  409.                                 $(ServiceOrderGroup), +
  410.                                 $(Dependencies), +
  411.                                 $(ObjectName), +
  412.                                 $(IoLogMsgDLL)";"$(ProductSoftwareImagePathHdwDriver), +
  413.                                 $(TypeSupported), +
  414.                                 $(EventLogLocation), +
  415.                                 $(ErrorControlValue)
  416.  
  417.     Set OEM_ABANDON_SOFTWARE = TRUE
  418.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  419.         Debug-Output "ShellCode error: AddSoftwareComponent FAILED! -- "$(ProductSoftwareNameHdwDriver)
  420.         goto ShellCodeError
  421.     endif
  422.     set RegistryErrorIndex = $($R0)
  423.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  424.         EndWait
  425.         Debug-Output "Registry error: add software components"
  426.         CloseRegKey $($R1)
  427.         CloseRegKey $($R2)
  428.         CloseRegKey $($R3)
  429.         CloseRegKey $($R4)
  430.         CloseRegKey $($R5)
  431.         goto fatalregistry
  432.     endif
  433.     Set SoftProductKey      = $($R1)
  434.     Set SoftNetRuleKey      = $($R2)
  435.     Set SoftServiceKey      = $($R3)
  436.     Set SoftParameterKey    = $($R4)
  437.     Set SoftLinkageKey      = $($R5)
  438.     ;
  439.     ; Add values for \SOFTWARE\StarGate\aclser\CurrentVersion
  440.     ;
  441.     set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  442.                         {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersionHdwDriver)},+
  443.                         {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersionHdwDriver)},+
  444.                         {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitleHdwDriver)},+
  445.                         {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescriptionHdwDriver)},+
  446.                         {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareNameHdwDriver)},+
  447.                         {hidden,$(NoTitle),$(!REG_VT_DWORD),$(NetRuleSoftwareHiddenHdwDriver)}, +
  448.                         {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  449.     Shell  $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  450.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  451.         Debug-Output "ShellCode error: AddValueList FAILED!  -- "$(SoftProductKey)
  452.         goto ShellCodeError
  453.     endif
  454.     set RegistryErrorIndex = $($R0)
  455.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  456.         EndWait
  457.         Debug-Output "Resgitry error: add value list."
  458.         CloseRegKey $(SoftProductKey)
  459.         CloseRegKey $(SoftNetRuleKey)
  460.         CloseRegKey $(SoftServiceKey)
  461.         CloseRegKey $(SoftParameterKey)
  462.         CloseRegKey $(SoftLinkageKey)
  463.         goto fatalregistry
  464.     endif
  465.     ;
  466.     ; Add values for \SOFTWARE\StarGate\aclser\CurrentVersion\NetRules
  467.     ;
  468.     set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareTypeHdwDriver)},+
  469.                         {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUseHdwDriver)}, +
  470.                         {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindFormHdwDriver)}, +
  471.                         {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClassHdwDriver)}, +
  472.                         {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareBindableHdwDriver)}, +
  473.                         {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  474.     Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  475.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  476.         Debug-Output "ShellCode error. AddValueList FAILED!  -- "$(SoftNetRuleKey)
  477.         goto ShellCodeError
  478.     endif
  479.     set RegistryErrorIndex = $($R0)
  480.     FlushRegKey $(SoftProductKey)
  481.     FlushRegKey $(SoftNetRuleKey)
  482.     FlushRegKey $(SoftServiceKey)
  483.     FlushRegKey $(SoftParameterKey)
  484.     FlushRegKey $(SoftLinkageKey)
  485.     CloseRegKey $(SoftProductKey)
  486.     CloseRegKey $(SoftNetRuleKey)
  487.     CloseRegKey $(SoftServiceKey)
  488.     CloseRegKey $(SoftParameterKey)
  489.     CloseRegKey $(SoftLinkageKey)
  490.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  491.         EndWait
  492.         Debug-Output "Registry error: add value list."
  493.         goto fatalregistry
  494.     endif
  495.  
  496. addAdapterComponent = +
  497.     Debug-Output "******************Entering addAdapterComponent******************"
  498.     ;
  499.     ; Add hives: \SOFTWARE\Microsoft\...\NetworkCards\0... and ...\NetRules
  500.     ;
  501.     Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName), +
  502.                          $(STF_CONTEXTINFNAME), $(ProductKeyNameHdwDriver)
  503.     ifint $($R4) != -1
  504.         Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
  505.     endif
  506.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  507.         Debug-Output "Cannot add hardware component!"
  508.         goto ShellCodeError
  509.     endif
  510.  
  511.     set RegistryErrorIndex = $($R0)
  512.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  513.         EndWait
  514.         Debug-Output "Registry error: add hardware component"
  515.         Debug-Output $(RegistryErrorIndex)
  516.         CloseRegKey $($R1)
  517.         CloseRegKey $($R2)
  518.         CloseRegKey $($R3)
  519.         goto fatalregistry
  520.     endif
  521.     ;
  522.     ; Add values for \SOFTWARE\Microsoft\NetworkCards\0...
  523.     ;
  524.     set KeyParameters = $($R3)
  525.     set KeyAdapterRules = $($R2)
  526.     set AdapterNumber = $($R4)
  527.     set AdapterServiceName = $($R5)
  528.  
  529.     Debug-Output "AdapterServiceName = "$(AdapterServiceName)
  530.  
  531.     set AdapterName = $(AdapterServiceName)
  532.     set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  533.                        {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardwareTitle)},+
  534.                        {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareDescription)},+
  535.                        {ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  536.                        {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  537.                        {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  538.     Shell  $(UtilityInf), AddValueList, $($R1), $(NewValueList)
  539.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  540.         Debug-Output "ShellCode error: AddValueList FAILED  -- "$($R1)
  541.         goto ShellCodeError
  542.     endif
  543. ;VIV    shell $(UtilityInf) IncrementRefCount $(ProductKeyName)
  544.     ;
  545.     ; Add values for \SOFTWARE\Microsoft\...\NetworkCards\0...\NetRules
  546.     ;
  547.     set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
  548.     set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
  549.     set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardwareType)},+
  550.                         {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  551.                         {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardwareClass)}, +
  552.                         {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  553.     Shell  $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
  554.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  555.         Debug-Output "ShellCode error."
  556.         goto ShellCodeError
  557.     endif
  558.     set RegistryErrorIndex = $($R0)
  559.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  560.         EndWait
  561.         Debug-Output "Registry error: add value list."
  562.         CloseRegKey $(KeyParameters)
  563.         CloseRegKey $(KeyAdapterRules)
  564.         goto fatalregistry
  565.     endif
  566.     FlushRegKey $(KeyParameters)
  567.     FlushRegKey $(KeyAdapterRules)
  568.     CloseRegKey $(KeyParameters)
  569.     CloseRegKey $(KeyAdapterRules)
  570.     goto writeparameters
  571.  
  572. configureadapter = +
  573.     Debug-Output "******************Entering configureadapter******************"
  574.     Debug-Output "OEMNACL.INF: PortNameList = "$(PortNameList)
  575.  
  576. ;---------------------------------------------------- VIV  8/27/1993 begin
  577. ;set BusTypeNum = 3
  578.     LibraryProcedure Result, $(ACLCONF_HANDLE), +
  579.             ACLConfigEntryPoint, +
  580.                 $(!STF_HWND), +                 ;0
  581.                 $(ConfigurationTitle), +        ;1
  582.                 $(IRQDefault), +                ;2
  583.                 $(IODefault), +                 ;3
  584.                 $(CtrlList), +                  ;4
  585.                 $(AdapterName), +               ;5
  586.         $(BoardTypeDefault), +        ;6
  587.         $(BusTypeNum), +        ;7
  588.         $(MemWinDefault),   +        ;8
  589.         $(MemSizeDefault), +            ;9
  590.         $(NumOfPortsDefault), +         ;10
  591.                 $(CtrlList1), +                    ;11
  592.                 $(SlotDefault), +         ;12
  593.                 $(CtrlInterfaceList), +         ;13
  594.                 $(CtrlInterfaceList1)           ;14
  595. ;---------------------------------------------------- VIV  8/27/1993 end
  596.  
  597. ;    set Result = {     $(IRQDefault),         +
  598. ;                    $(IODefault),          +
  599. ;                    $(PortListDefault)    +
  600. ;                    $(DnlPath),         +
  601. ;                    $(MemWinDefault),   +
  602. ;                    $(MemSizeDefault)   +
  603. ;                 }
  604.     Debug-Output "Result: "$(Result)
  605.     Ifstr $(Result) == "{}"
  606.         set CommonStatus = STATUS_USERCANCEL
  607.         goto successful
  608.     Endif
  609.  
  610.     set AdapterParameters = $(Result)
  611.     read-syms UpdatingConfiguration$(!STF_LANGUAGE)
  612.     shell $(subroutninf) PushBillBoard NETSTATUSDLG $(UpdatingConfiguration)
  613.     Debug-Output "jumping to "$(from)
  614.     goto $(from)
  615.  
  616. getAdapterSettings = +
  617.     Debug-Output "******************Entering getAdapterSettings******************"
  618.     Debug-Output "from value = "$(from)
  619.  
  620.     Ifstr $(BusTypeNum) == 3
  621.     ; MCA
  622.     set BoardTypeDefault = 6    ; A100M
  623.     Else-Ifstr $(BusTypeNum) == 2
  624.     ; EISA
  625.     set BoardTypeDefault = 10    ; A100E
  626.     Else
  627.     ; ISA
  628.     set BoardTypeDefault = 12    ; A100I
  629.     Endif
  630.     Debug-Output "Default BoardType = "$(BoardTypeDefault)
  631.  
  632. ;---------------------------------------------------- VIV  8/25/1993 begin
  633. ;DEL    set IRQDefault = 5
  634. ;DEL    set IODefault = 200
  635. ;---------------------------------------------------- VIV  8/25/1993 end
  636.  
  637.     LoadLibrary "b" $(!STF_WINDOWSSYSPATH)"\"aclconf.dll ACLCONF_HANDLE
  638.  
  639. ;DEL    read-syms AdapterSettings-$(AdapterHardwareName)
  640. ;    install AdapterSettings-$(AdapterHardwareName)
  641. ;    install GetDownloadPath
  642. ;    ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  643. ;        goto fatalregistry
  644. ;    endif
  645.     Debug-Output "NTN_RegBase="$(!NTN_RegBase)
  646.     Ifstr $(!NTN_RegBase) != $(KeyNull)
  647.         OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) SoftwareKey
  648.         Debug-Output "Opening key "$(!NTN_RegBase)
  649.         Ifstr $(SoftwareKey) == $(KeyNull)
  650.             Debug-Output "Unable to open "$(!NTN_RegBase)" key!!!!"
  651.             goto getAdapterSettingsExit
  652.         Else
  653.             GetRegValue $(SoftwareKey), "ServiceName", ServiceNameList
  654.             set AdapterServiceName = *($(ServiceNameList),4)
  655.             set AdapterName = $(AdapterServiceName)
  656.             CloseRegKey $(SoftwareKey)
  657.         Endif
  658.     Endif
  659.  
  660.     Debug-Output "AdapterServiceName = "$(AdapterServiceName)
  661.     Debug-Output "AdapterName = "$(AdapterName)
  662.  
  663.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\"$(AdapterServiceName) $(MAXIMUM_ALLOWED) BaseKey
  664.     Debug-Output "NTN_ServiceBase = "$(!NTN_ServiceBase)
  665.     Debug-Output "BaseKey = "$(BaseKey)
  666.     Ifstr $(BaseKey) == $(KeyNull)
  667.         Debug-Output "Error opening BaseKey "$(!NTN_ServiceBase)"\"$(AdapterServiceName)
  668.         CloseRegKey $(BaseKey)
  669.         goto fatalregistry
  670.     Endif
  671.  
  672. ;---------------------------------------------------- VIV  10/20/1993 begin
  673.     ;
  674.     ; Open \SYSTEM\CurrentControlSet\Services\aclser\Parameters
  675.     ;
  676.     OpenRegKey $(BaseKey) "" "Parameters" $(MAXIMUM_ALLOWED) ParametersKey
  677.     Ifstr $(ParametersKey) == $(KeyNull)
  678.         Debug-Output "Assuming Parameters key does not exist!!!"
  679.         CloseRegKey $(BaseKey)
  680.         goto configureadapter
  681.     Endif
  682. ;---------------------------------------------------- VIV  10/20/1993 end
  683.  
  684.  
  685. ;---------------------------------------------------- VIV  8/27/1993 begin
  686.     GetRegValue $(ParametersKey) "InterruptNumber" IRQValueList
  687.     GetRegValue $(ParametersKey) "IOBaseAddress" IOBaseValueList
  688.     GetRegValue $(ParametersKey) "MemoryWindow" MemWinValueList
  689.     GetRegValue $(ParametersKey) "WindowSize" MemSizeValueList
  690.     GetRegValue $(ParametersKey) "BoardType" BoardTypeValueList
  691.     GetRegValue $(ParametersKey) "NumOfPorts" NumOfPortsValueList
  692.     GetRegValue $(ParametersKey) "Slot" SlotValueList
  693.  
  694. ;VIV We do not need to check if IRQValueList is correct. We Will check them in DLL.
  695. ;    set-dectohex IRQDefault = *($(IRQValueList),4)
  696.     set IRQDefault = *($(IRQValueList),4)
  697.     Debug-Output "Current InterruptNumber = "$(IRQDefault)
  698.  
  699. ;    set-dectohex TmpHex = *($(IRQValueList),4)
  700. ;    Debug-Output "Current InterruptNumber = "$(TmpHex)
  701. ;    ForListDo $(IRQRangeList)
  702. ;        Ifstr(i) $(TmpHex) == "0x"$($)
  703. ;            set-sub IRQDefault = $(#),1
  704. ;        Endif
  705. ;    EndForListDo
  706.  
  707. ;VIV We do not need to check if IOBase is correct. We Will check them in DLL.
  708. ;    set-dectohex IODefault = *($(IOBaseValueList),4)
  709.     set IODefault = *($(IOBaseValueList),4)
  710.     Debug-Output "Current IOBaseAddress = "$(IODefault)
  711.  
  712. ;    set-dectohex MemWinDefault = *($(MemWinValueList),4)
  713.     set MemWinDefault = *($(MemWinValueList),4)
  714.     Debug-Output "Current Memory Window = "$(MemWinDefault)
  715.  
  716. ;    set-dectohex MemSizeDefault = *($(MemSizeValueList),4)
  717.     set MemSizeDefault = *($(MemSizeValueList),4)
  718.     Debug-Output "Current Memory Size = "$(MemSizeDefault)
  719.  
  720. ;    set-dectohex BoardTypeDefault = *($(BoardTypeValueList),4)
  721.     set BoardTypeDefault = *($(BoardTypeValueList),4)
  722.     Debug-Output "Current BoardType = "$(BoardTypeDefault)
  723.  
  724.     set SlotDefault = *($(SlotValueList),4)
  725.     Debug-Output "Current Slot = "$(SlotDefault)
  726.  
  727.     set NumOfPortsDefault = *($(NumOfPortsValueList),4)
  728.     Debug-Output "Current NumOfPorts = "$(NumOfPortsDefault)
  729. ;    set IOFound = $(FALSE)
  730. ;    set-dectohex TmpHex = *($(IOBaseValueList),4)
  731. ;    Debug-Output "Current IOBaseAddress = "$(TmpHex)
  732. ;    ForListDo $(IORangeList)
  733. ;        Ifstr(i) $(TmpHex) == "0x"$($)
  734. ;            set-sub IODefault = $(#),1
  735. ;            set IOFound = $(TRUE)
  736. ;        Endif
  737. ;    EndForListDo
  738. ;
  739. ;    ifint $(IOFound) == $(FALSE)
  740. ;      set IORangeList = {$(TmpHex)}
  741. ;      set IODefault = 0
  742. ;      set BusTypeNum = 2
  743. ;    endif
  744. ;---------------------------------------------------- VIV  8/27/1993 end
  745.  
  746. ;---------------------------------------------------- VIV  8/18/1993 begin
  747.     ;
  748.     ; Open \SYSTEM\CurrentControlSet\Services\aclser\Parameters\Line
  749.     ;
  750.     set CurrentLine = "Line"
  751.     Debug-Output "CurrentLine = "$(CurrentLine)
  752.     OpenRegKey $(ParametersKey) "" $(CurrentLine) $(MAXIMUM_ALLOWED) LineKey
  753.  
  754.  
  755.     ; Parameter for DLL
  756.     set CtrlList = {}
  757.     set CtrlInterfaceList = {}
  758.  
  759.     set PortNameList = {}
  760.     set CurrentPort = ""
  761.     set PortName = {}
  762.     set PortInterfaceList = {}
  763.     set PortInterface = {}
  764.     ForListDo {"1","2","3","4","5","6","7","8"}
  765.        set CurrentPort = "Port"$($)
  766.        ;
  767.        ; Open \SYSTEM\CurrentControlSet\Services\aclser\Parameters\Line\PortX
  768.        ;
  769.        OpenRegKey $(LineKey) "" $(CurrentPort) $(MAXIMUM_ALLOWED) PortKey
  770.        Ifstr $(PortKey) != $(KeyNull)
  771.           GetRegValue $(PortKey) "DosDevices" PortName
  772.           Ifstr $(PortNameList) == $(KeyNull)
  773.              set PortNameList = *($(PortName),4)
  774.           Else
  775.              set PortNameList = >($(PortNameList), >($(CurrentPort),*($(PortName),4)))
  776.           Endif
  777.           GetRegValue $(PortKey) "EIA422" PortInterface
  778.           Ifstr $(PortInterfaceList) == $(KeyNull)
  779.              set PortInterfaceList = *($(PortInterface),4)
  780.           Else
  781.              set PortInterfaceList = >($(PortInterfaceList), >($(CurrentPort),*($(PortInterface),4)))
  782.           Endif
  783.           CloseRegKey $(PortKey)
  784.        EndIf
  785.     EndForListDo
  786.  
  787.     set CtrlList = $(PortNameList)
  788.     set CtrlInterfaceList = $(PortInterfaceList)
  789.     set CtrlList1 = {}
  790.  
  791.     set PortNameList = {}
  792.     set CurrentPort = ""
  793.     set PortName = {}
  794.     set PortInterfaceList = {}
  795.     set PortInterface = {}
  796.     ForListDo {"9","10","11","12","13","14","15","16"}
  797.        set CurrentPort = "Port"$($)
  798.        ;
  799.        ; Open \SYSTEM\CurrentControlSet\Services\aclser\Parameters\Line\PortX
  800.        ;
  801.        OpenRegKey $(LineKey) "" $(CurrentPort) $(MAXIMUM_ALLOWED) PortKey
  802.        Ifstr $(PortKey) != $(KeyNull)
  803.           GetRegValue $(PortKey) "DosDevices" PortName
  804.           Ifstr $(PortNameList) == $(KeyNull)
  805.              set PortNameList = *($(PortName),4)
  806.           Else
  807.              set PortNameList = >($(PortNameList), >($(CurrentPort),*($(PortName),4)))
  808.           Endif
  809.           GetRegValue $(PortKey) "EIA422" PortInterface
  810.           Ifstr $(PortInterfaceList) == $(KeyNull)
  811.              set PortInterfaceList = *($(PortInterface),4)
  812.           Else
  813.              set PortInterfaceList = >($(PortInterfaceList), >($(CurrentPort),*($(PortInterface),4)))
  814.           Endif
  815.           CloseRegKey $(PortKey)
  816.        EndIf
  817.     EndForListDo
  818.  
  819.     set CtrlList1 = $(PortNameList)
  820.     set CtrlInterfaceList1 = $(PortInterfaceList)
  821.     CloseRegKey $(LineKey)
  822. ;---------------------------------------------------- VIV  8/18/1993 end
  823.  
  824.     CloseRegKey $(ParametersKey)
  825.     CloseRegKey $(BaseKey)
  826.  
  827. getAdapterSettingsExit = +
  828.     goto configureadapter
  829.  
  830. writeparameters = +
  831.     Debug-Output "******************Entering writeparameters******************"
  832.  
  833.     StartWait
  834.  
  835.     Debug-Output "Trying to open: "$(!NTN_ServiceBase)"\"$(AdapterServiceName)
  836.     Debug-Output "AdapterParameters:"
  837.     Debug-Output $(AdapterParameters)
  838.     ;
  839.     ; Open hive \SYSTEM\CurrentControlSet\Services\aclser0...
  840.     ;
  841.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\"$(AdapterServiceName) $(MAXIMUM_ALLOWED) BaseKey
  842.     Ifstr $(BaseKey) == $(KeyNull)
  843.         Debug-Output "Error opening BaseKey "$(!NTN_ServiceBase)"\"$(AdapterServiceName)
  844.         CloseRegKey $(BaseKey)
  845.         goto fatal
  846.     Endif
  847.     ;
  848.     ; Open hive \SYSTEM\CurrentControlSet\Services\aclser0...\Parameters
  849.     ;
  850.     OpenRegKey $(BaseKey) "" "Parameters" $(MAXIMUM_ALLOWED) ParametersKey
  851.     Ifstr $(ParametersKey) == $(KeyNull)
  852.         Debug-Output "Assuming Parameters key does not exist!!!"
  853.         CloseRegKey $(BaseKey)
  854.         goto fatal
  855.     Endif
  856.  
  857. ;    Debug-Output "AdapterParameters parsed: "
  858.     set InterruptNumber = *($(AdapterParameters),1)
  859.     set IOBaseAddress = *($(AdapterParameters),2)
  860.     set HdwDeviceName = "\Device\"$(AdapterHardwareDriver)
  861. ;    set DownloadPath = *($(AdapterParameters),4)
  862.     set BoardType = *($(AdapterParameters),4)
  863.     set MemoryWindow = *($(AdapterParameters),5)
  864.     set WindowSize = *($(AdapterParameters),6)
  865.     set NumOfPorts = *($(AdapterParameters),7)
  866.     set Slot = *($(AdapterParameters),8)
  867.     Debug-Output "FOO Slot = "$(Slot)
  868.  
  869. ;    Debug-Output "InterruptNumber = "$(InterruptNumber)
  870. ;    Debug-Output "IOBaseAddress = "$(IOBaseAddress)
  871. ;    Debug-Output "HdwDeviceName = "$(HdwDeviceName)
  872. ;    Debug-Output "DownloadPath = "$(DownloadPath)
  873. ;    Debug-Output "MemoryWindow = "$(MemoryWindow)
  874. ;    Debug-Output "WindowSize = "$(WindowSize)
  875. ;    SetRegValue $(ParametersKey) {DownloadPath,$(NoTitle),$(!REG_VT_SZ),$(DownloadPath)}
  876.     SetRegValue $(ParametersKey) {NumOfPorts,$(NoTitle),$(!REG_VT_DWORD),$(NumOfPorts)}
  877.     SetRegValue $(ParametersKey) {HdwDeviceName,$(NoTitle),$(!REG_VT_SZ),$(HdwDeviceName)}
  878.     SetRegValue $(ParametersKey) {BusType,$(NoTitle),$(!REG_VT_DWORD),$(BusTypeNum)}
  879.     SetRegValue $(ParametersKey) {BoardType,$(NoTitle),$(!REG_VT_DWORD),$(BoardType)}
  880.     SetRegValue $(ParametersKey) {WindowSize,$(NoTitle),$(!REG_VT_DWORD),$(WindowSize)}
  881.  
  882.     ifstr $(BusTypeNum) != 3
  883.         ; ISA
  884.         SetRegValue $(ParametersKey) {IOBaseAddress,$(NoTitle),$(!REG_VT_DWORD),$(IOBaseAddress)}
  885.         SetRegValue $(ParametersKey) {InterruptNumber,$(NoTitle),$(!REG_VT_DWORD),$(InterruptNumber)}
  886.         SetRegValue $(ParametersKey) {MemoryWindow,$(NoTitle),$(!REG_VT_DWORD),$(MemoryWindow)}
  887.         ; Eisa
  888.         SetRegValue $(ParametersKey) {Slot,$(NoTitle),$(!REG_VT_DWORD),$(Slot)}
  889.     else
  890.         ; MCA
  891.         SetRegValue $(ParametersKey) {Slot,$(NoTitle),$(!REG_VT_DWORD),$(Slot)}
  892.  
  893.     endif
  894. ;---------------------------------------------------- VIV  8/18/1993 begin
  895.     set PortList = *($(AdapterParameters),3)
  896.     Debug-Output "PortList = "$(PortList)
  897.  
  898.     set LineName = "Line"
  899.     DeleteRegTree $(ParametersKey) $(LineName)
  900.  
  901.     Ifstr $(PortList) != "{}"
  902.        shell "" ExCreateRegKey $(ParametersKey) $(LineName)
  903.        Ifstr(i) $($R0) != NO_ERROR
  904.            Debug-Output "Error creating registry key!"
  905.            set KeyHandle = $($R1)
  906.            CloseRegKey $(BaseKey)
  907.            goto fatal
  908.        Endif
  909.        set LineKey = $($R1)
  910.     Endif
  911.  
  912.     ForListDo $(PortList)
  913.        set PortObject = $($)
  914.        set PortName = *($(PortObject),1)
  915.        set PortDosDevices = *($(PortObject),2)
  916.        set PortInterface = *($(PortObject),3)
  917.        Debug-Output "      "$(PortName)"  -> "$(PortDosDevices)
  918.        shell "" ExCreateRegKey $(LineKey) $(PortName)
  919.        Ifstr(i) $($R0) != NO_ERROR
  920.            Debug-Output "Error creating registry key!"
  921.            set KeyHandle = $($R1)
  922.            CloseRegKey $(LineKey)
  923.            goto fatal
  924.        Endif
  925.        set PortKey = $($R1)
  926.        SetRegValue $(PortKey) {DosDevices,$(NoTitle),$(!REG_VT_SZ),$(PortDosDevices)}
  927.        SetRegValue $(PortKey) {EIA422,$(NoTitle),$(!REG_VT_DWORD),$(PortInterface)}
  928.     EndForListDo
  929. ;---------------------------------------------------- VIV  8/18/1993 end
  930.  
  931.     EndWait
  932.     goto successful
  933.  
  934. bindingadapter = +
  935.     Debug-Output "******************Entering bindingadapter******************"
  936.     LoadLibrary "x" io8pconf.dll IO8PCONF_HANDLE
  937.     set Error = "Binding: Sorry, not yet implemented."
  938.     goto fatal
  939.  
  940. removeadapter = +
  941.     read-syms DebugOptions
  942.     Debug-Output "******************Entering removeadapter******************"
  943.     Debug-Output "OEMNACL.INF: removeadapter"
  944.     Debug-Output "OEMNACL.INF: Removing Hardware Components"
  945.     Debug-Output "OEMNACL.INF: ProductSoftwareNameHdwDriver = "$(ProductSoftwareNameHdwDriver)
  946.     Debug-Output "OEMNACL.INF: NTN_RegBase = "$(!NTN_RegBase)
  947.     Debug-Output "fRemoveACL: "$(fRemoveACL)
  948.  
  949.     ifstr(i) $(fRemoveACL) == FALSE
  950.       install RemoveFiles
  951.       goto removeadapterExit
  952.     endif
  953.  
  954. ;DEL    LoadLibrary "x" aclconf.dll ACLCONF_HANDLE
  955.  
  956.     Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  957.         $(ProductSoftwareNameHdwDriver), $(!NTN_RegBase)
  958.     Debug-Output "OEMNACL.INF: RemoveHardwareComponent return value = "$($R0)
  959.  
  960.     Ifstr(i) $($R0) != NO_ERROR
  961.         Debug-Output "OEMNACL.INF: RemoveHardwareComponent != NO_ERROR"
  962.     Endif
  963.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  964.         Debug-Output "ShellCode error"
  965.         goto ShellCodeError
  966.     endif
  967.     set RegistryErrorIndex = $($R0)
  968.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  969.         Debug-Output "fatal registry error"
  970.         goto fatalregistry
  971.     endif
  972.  
  973.     install RemoveFiles
  974.  
  975. removeadapterExit = +
  976.     Debug-Output "OEMNACL.INF: Exiting removeadapter"
  977.     goto end
  978.  
  979. UpgradeSoftware = +
  980.     Debug-Output "******************Entering UpgradeSoftware******************"
  981.     set SrcDir = $(!SourceDir)
  982. ;    Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  983. ;    Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  984. ;        Debug-Output "Shell code error: DoAskSource"
  985. ;        Goto ShellCodeError
  986. ;    Else-Ifstr(i) $($R0) == STATUS_FAILED
  987. ;        Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  988. ;        ifint $($ShellCode) != $(!SHELL_CODE_OK)
  989. ;            goto ShellCodeError
  990. ;        endif
  991. ;        set Error = $($R0)
  992. ;        Goto fatal
  993. ;    Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  994. ;        set CommonStatus = STATUS_USERCANCEL
  995. ;        Goto successful
  996. ;    Endif
  997. ;    Set SrcDir = $($R1)
  998.     install Correct-SrcDir
  999. ;    Shell $(UtilityInf), GetBusTypeNum
  1000. ;    set BusTypeNum = $($R1)
  1001. ;DEL pd    LoadLibrary "c" $(SrcDir)aclconf.dll ACLCONF_HANDLE
  1002.  
  1003. ;VIV    ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  1004.     Debug-Output "ProductKeyNameHdwDriver = "$(ProductKeyNameHdwDriver)
  1005.     Debug-Output "NTN_RegBase = "$(!NTN_RegBase)
  1006.  
  1007.     ifstr(i) $(ProductKeyNameHdwDriver) == $(!NTN_RegBase)
  1008. ; We will never get here - VD
  1009. ;VIV        OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  1010. ;DEL        OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyNameHdwDriver) $(MAXIMUM_ALLOWED) KeyProduct
  1011. ;DEL        Ifstr $(KeyProduct) != $(KeyNull)
  1012. ;DEL            GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
  1013. ;DEL            set Version = *($(VersionInfo), 4)
  1014. ;DEL            Split-String $(!NTN_Infname), "\", FilenameList
  1015. ;DEL            QueryListSize ListSize $(FilenameList)
  1016. ;DEL            set !UG_Filename = *($(FilenameList), $(ListSize))
  1017. ;DEL            install "Install-Update"
  1018. ;DEL            ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1019. ;DEL                goto fatal
  1020. ;DEL            endif
  1021. ;DEL            SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
  1022. ;DEL            SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
  1023. ;DEL;VIV            ifint $(Version) != $(ProductVersion)
  1024. ;DEL            ifint $(Version) != $(ProductVersionHdwDriver)
  1025. ;DEL            endif
  1026. ;DEL            CloseRegKey $(KeyProduct)
  1027. ;DEL        else
  1028. ;DEL            goto fatalregistry
  1029. ;DEL        endif
  1030.     else
  1031.         OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) +
  1032.               $(MAXIMUM_ALLOWED) NetworkCardKey
  1033.         Ifstr(i) $(NetworkCardKey) != $(KeyNull)
  1034.             GetRegValue $(NetworkCardKey),"ServiceName", ServiceNameInfo
  1035.             set ServiceName = *($(ServiceNameInfo), 4)
  1036.             OpenRegKey $(NetworkCardKey) "" "NetRules" +
  1037.                 $(MAXIMUM_ALLOWED) NetRuleKey
  1038.             Ifstr $(NetRuleKey) != $(KeyNull)
  1039.             else
  1040.                 goto fatalregistry
  1041.             endif
  1042.             CloseRegKey $(NetRules)
  1043.             CloseRegKey $(NetworkCardKey)
  1044.         else
  1045.             goto fatalregistry
  1046.         endif
  1047.         OpenRegKey $(!REG_H_LOCAL) "" +
  1048.               $(!NTN_ServiceBase)"\"$(ServiceName) +
  1049.               $(MAXIMUM_ALLOWED) ServiceKey
  1050.         Ifstr $(ServiceKey) != $(KeyNull)
  1051.             ;
  1052.             ; Expand and copy files to the windows directory
  1053.             ;
  1054.             install "Install-Option"
  1055.             ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
  1056.                   Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  1057.                   ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1058.                       goto ShellCodeError
  1059.                   endif
  1060.                   set Error = $($R0)
  1061.                   goto fatal
  1062.             endif
  1063.         LoadLibrary "d" $(!STF_WINDOWSSYSPATH)"\"aclconf.dll ACLCONF_HANDLE
  1064.         ;
  1065.         ; Copy the Control Programs that have already been expanded
  1066.         ; to the Registry
  1067.         ;
  1068.             LibraryProcedure Result, $(ACLCONF_HANDLE), +
  1069.                             ACLPutCPDataToRegistry, +
  1070.                             $(!STF_WINDOWSSYSPATH)"\", +
  1071.                             $(ParamKeyName), +
  1072.                             $(BusTypeNum)
  1073.         ;
  1074.         ; Remove the Control Programs from windows directory
  1075.         ;
  1076.         set RemoveList = {}
  1077.         set CPList = ^( Files-CP, 2 )
  1078.            ForListDo $(CPList)
  1079.                 set RemoveList = >($(RemoveList), $(!STF_WINDOWSSYSPATH)\$($))
  1080.            EndForListDo
  1081.         ForListDo $(RemoveList)
  1082.                 LibraryProcedure Status , $(!LIBHANDLE), DelFile $($)
  1083.         EndForListDo
  1084.  
  1085.             CloseRegKey $(ServiceKey)
  1086.             set AddCopy = YES
  1087.             set DoCopy = YES
  1088. ;DEL pd            install "Install-Option"
  1089. ;               Debug-Output "OEMNACL.INF: STF_INSTALL_OUTCOME = "$(STF_INSTALL_OUTCOME)
  1090. ;DEL pd            ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
  1091. ;DEL pd                  Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  1092. ;DEL pd                  ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1093. ;DEL pd                      goto ShellCodeError
  1094. ;DEL pd                  endif
  1095. ;DEL pd                  set Error = $($R0)
  1096. ;DEL pd                  goto fatal
  1097. ;DEL pd            endif
  1098.         else
  1099.             goto fatalregistry
  1100.         endif
  1101.     endif
  1102.     goto end
  1103.  
  1104. successful = +
  1105.     Debug-Output "******************Entering successful******************"
  1106.     goto end
  1107.  
  1108. ; ---------------------------------------------------- VIV  8/18/1993 begin
  1109. ; abandon = +
  1110. ;     Debug-Output "******************Entering abandon******************"
  1111. ;
  1112. ;     ForListDo $(OEM_ABANDON_OPTIONS)
  1113. ;         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  1114. ;             $(ProductSoftwareName), $($)
  1115. ;         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1116. ;             Debug-Output "ShellCode error"
  1117. ;             goto ShellCodeError
  1118. ;         endif
  1119. ;         set RegistryErrorIndex = $($R0)
  1120. ;         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1121. ;             goto fatalregistry
  1122. ;         endif
  1123. ;     EndForListDo
  1124. ;
  1125. ;     goto end
  1126. ;---------------------------------------------------- VIV  8/18/1993 end
  1127.  
  1128. warning = +
  1129.     Debug-Output "******************Entering warning******************"
  1130.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  1131.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1132.         goto ShellCodeError
  1133.     endif
  1134.     ifstr(i) $($R1) == "OK"
  1135.         goto $(to)
  1136.     else-ifstr(i) $($R1) == "CANCEL"
  1137.         goto $(from)
  1138.     else
  1139.         goto "end"
  1140.     endif
  1141.  
  1142. nonfatalinfo = +
  1143.     Debug-Output "******************Entering nonfatalinfo******************"
  1144.     Set CommonStatus = STATUS_USERCANCEL
  1145.     Set Severity = STATUS
  1146.     goto nonfatalmsg
  1147.  
  1148. nonfatal = +
  1149.     Debug-Output "******************Entering nonfatal******************"
  1150.     Set Severity = NONFATAL
  1151.     goto nonfatalmsg
  1152.  
  1153. nonfatalmsg = +
  1154.     Debug-Output "******************Entering nonfatalmsg******************"
  1155.     ifstr(i) $(Error) == ""
  1156.         Set Severity = NONFATAL
  1157.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  1158.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1159.             goto ShellCodeError
  1160.         endif
  1161.         set Error = $($R0)
  1162.     endif
  1163.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
  1164.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1165.         goto ShellCodeError
  1166.     endif
  1167.     ifstr(i) $($R1) == "OK"
  1168.         goto $(from)
  1169.     else
  1170.         goto "end"
  1171.     endif
  1172.  
  1173. fatalregistry = +
  1174.     Debug-Output "******************Entering fatalregistry******************"
  1175.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  1176.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1177.        Debug-Output "fatalregistry: shell to find RegistryErrorString failed."
  1178.        goto ShellCodeError
  1179.     endif
  1180.     set Error = $($R0)" - service "$(IO8PSpecificString)"."
  1181.     ifstr(i) $(fRemoveIO8P) == TRUE
  1182.         read-syms AbortMessage$(!STF_LANGUAGE)
  1183.         set Error = $(Error)$(!LF)$(!LF)$(AbortText)
  1184.     endif
  1185.     goto fatal
  1186.  
  1187. fataldetect = +
  1188.     Debug-Output "******************Entering fataldetect******************"
  1189.     Shell $(UtilityInf),RegistryErrorString,CANNOT_DETECT
  1190.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1191.         Debug-Output "ShellCode error: cannot get an error string."
  1192.         goto ShellCodeError
  1193.     endif
  1194.     set Error = $($R0)
  1195.     Goto fatal
  1196.  
  1197. fatal = +
  1198.     Debug-Output "******************Entering fatal******************"
  1199.     Debug-Output "OEMNIO8P.INF: ---- fatal called"
  1200.     Shell $(subroutninf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  1201.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1202.         Debug-Output "fatal: shell to SetupMessage failed."
  1203.         goto ShellCodeError
  1204.     endif
  1205.     goto setfailed
  1206.  
  1207. ShellCodeError = +
  1208.     Debug-Output "******************Entering ShellCodeError******************"
  1209.     set DlgType      = "MessageBox"
  1210.     set STF_MB_TITLE = "Error: "$(FunctionTitle)
  1211.     set STF_MB_TEXT  = "Shell Code Error"
  1212.     set STF_MB_TYPE  = 1
  1213.     set STF_MB_ICON  = 3
  1214.     set STF_MB_DEF   = 1
  1215.     ui start "Error Message"
  1216.     goto setfailed
  1217.  
  1218. setfailed = +
  1219.     Debug-Output "******************Entering setfailed******************"
  1220.     set CommonStatus = STATUS_FAILED
  1221.     ifstr(i) $(fRemoveIO8P) == TRUE
  1222.         set fRemoveIO8P = FALSE
  1223.         goto removeadapter
  1224.     endif
  1225.     goto end
  1226.  
  1227. end = +
  1228.     Debug-Output "******************Entering end******************"
  1229.     goto term
  1230.  
  1231. term = +
  1232.     ifstr(i) $(ACLCONF_HANDLE) != $(HandleNull)
  1233.       FreeLibrary $(ACLCONF_HANDLE)
  1234.     endif
  1235.     Debug-Output "******************Entering term -- GoodBye!!!******************"
  1236.     Return $(CommonStatus)
  1237.  
  1238. [RemoveFiles]
  1239.     Debug-Output "******************Entering [RemoveFiles]******************"
  1240.     set RemoveList = {}
  1241.     set RenameList = {}
  1242.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyNameHdwDriver) +
  1243.                $(MAXIMUM_ALLOWED) KeyProductHdwDriver
  1244.     Debug-Output "ProductKeyNameHdwDriver = "$(ProductKeyNameHdwDriver)
  1245.     Debug-Output "KeyProductHdwDriver = "$(KeyProductHdwDriver)
  1246.     ifstr $(KeyProductHdwDriver) == $(KeyNull)
  1247.            CloseRegKey $(KeyProductHdwDriver)
  1248.            set RenameList = >($(RenameList), $(!STF_WINDOWSSYSPATH)"\drivers\"$(AdapterHardwareDriver)".sys")
  1249.  
  1250. ;---------------------------------------------------- VIV  8/18/1993 begin
  1251. ;      set RenameList = >($(RenameList), $(!STF_WINDOWSSYSPATH)"\aclconf.dll")
  1252.         set ResList = ^( Files-Resource, 2 )
  1253.            ForListDo $(ResList)
  1254.             set RenameList = >($(RenameList), $(!STF_WINDOWSSYSPATH)\$($))
  1255.            EndForListDo
  1256.  
  1257. ;      set RemoveList = >($(RemoveList), $(!STF_WINDOWSSYSPATH)"\io8pconf.hlp")
  1258. ;        set CPList = ^( Files-CP, 2 )
  1259. ;           ForListDo $(CPList)
  1260. ;            set RemoveList = >($(RemoveList), $(!STF_WINDOWSSYSPATH)\$($))
  1261. ;           EndForListDo
  1262.         set RemoveList = >($(RemoveList), $(!STF_WINDOWSSYSPATH)"\drivers\"$(AdapterHardwareDriver)".old")
  1263. ;---------------------------------------------------- VIV  8/18/1993 end
  1264.     endif
  1265.  
  1266. ;---------------------------------------------------- VIV  8/18/1993 begin
  1267. ;   OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) +
  1268. ;              $(MAXIMUM_ALLOWED) KeyProduct
  1269. ;   ifstr $(KeyProduct) == $(KeyNull)
  1270. ;      CloseRegKey $(KeyProduct)
  1271. ;      set RenameList = >($(RenameList), $(!STF_WINDOWSSYSPATH)"\drivers\"$(ProductSoftwareName)".sys")
  1272. ;      set RenameList = >($(RenameList), $(!STF_WINDOWSSYSPATH)"\io8pconf.dll")
  1273. ;      set RemoveList = >($(RemoveList), $(!STF_WINDOWSSYSPATH)"\io8pconf.hlp")
  1274. ;   endif
  1275. ;---------------------------------------------------- VIV  8/18/1993 end
  1276.  
  1277.    Debug-Output "RemoveList = "$(RemoveList)
  1278.    Debug-Output "RenameList = "$(RenameList)
  1279.  
  1280.    ForListDo $(RemoveList)
  1281.        Debug-Output "Removing "$($)
  1282.        LibraryProcedure Status , $(!LIBHANDLE), DelFile $($)
  1283.        Debug-Output "Status is "$(Status)
  1284.    EndForListDo
  1285.  
  1286.    ForListDo $(RenameList)
  1287.        Debug-Output "RenameList entry = "$($)
  1288.        Split-String $($) "\" FilePath
  1289.        QueryListSize PathLen $(FilePath)
  1290.        Split-String *($(FilePath),$(PathLen)) "." FullFileName
  1291.        Set FileName = *($(FullFileName),1)
  1292.        Debug-Output "FileName is "$(FileName)
  1293.        LibraryProcedure STATUS, $(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  1294.        Debug-Output "CheckFile Status = "$(STATUS)
  1295.        ifstr(i) $(STATUS) == YES
  1296.            LibraryProcedure STATUS, $(!LIBHANDLE), DelFile $(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  1297.            Debug-Output "Delfile Status = "$(STATUS)
  1298.            LibraryProcedure STATUS, $(!LIBHANDLE), DelFile $($)
  1299.            Debug-Output "Delfile Status = "$(STATUS)
  1300. ;       endif
  1301.        else-Ifstr(i) $(fRemoveACL) == TRUE
  1302.          Debug-Output "Renaming from "$($)
  1303.          Debug-Output "Renaming to "$(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  1304.          LibraryProcedure Status1 , $(!LIBHANDLE), RenFile $($), $(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  1305.          Debug-Output "Status is "$(Status1)
  1306.          AddFileToDeleteList $(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  1307.        endif
  1308.    EndForListDo
  1309.  
  1310.    exit
  1311.  
  1312. [ExCreateRegKey]
  1313. ;    Debug-Output "******************Entering [ExCreateRegKey]******************"
  1314.     set ECR_Result          = NO_ERROR
  1315.     set ECR_BaseKeyHandle   = $($0)
  1316.     set ECR_NewPath         = $($1)
  1317.     set KeyNull         = ""
  1318.     set MAXIMUM_ALLOWED   = 33554432
  1319. ;    Debug-Output "ExCreateRegKey - ECR_BaseKeyHandle = "$(ECR_BaseKeyHandle)
  1320. ;    Debug-Output "                 ECR_NewPath = "$(ECR_NewPath)
  1321. ;    Debug-Output "                 MAXIMUM_ALLOWED = "$(MAXIMUM_ALLOWED)
  1322. ;    Debug-Output "                 KeyNull = "$(KeyNull)
  1323.     OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_NewPath) $(MAXIMUM_ALLOWED) +
  1324.                ECR_BaseKey
  1325. ;    Debug-Output "ECR_BaseKey = "$(ECR_BaseKey)
  1326. ;    Debug-Output "    OpenRegKey returned "$($R0)
  1327.     Ifstr $(ECR_BaseKey) == $(KeyNull)
  1328. ;        Debug-Output "ECR_BaseKey == KeyNull"
  1329.     Else
  1330. ;        Debug-Output "ECR_BaseKey != KeyNull"
  1331.         set ECR_KeyHandle = $(ECR_BaseKey)
  1332.         goto  ECR_Return
  1333.     Endif
  1334.     set ECR_TmpPath = ""
  1335.     Split-String $(ECR_NewPath) "\" ECR_PList
  1336. ;    Debug-Output "ECR_PList = "$(ECR_PList)
  1337.     ForListDo $(ECR_PList)
  1338.         Ifstr(i) $($) != "\"
  1339.             Ifint $(#) == 1
  1340.                 set ECR_TmpPath = $($)
  1341.             Else
  1342.                 set ECR_TmpPath = $(ECR_TmpPath)"\"$($)
  1343.             Endif
  1344. ;            Debug-Output "Determining if "$(ECR_TmpPath)" exists"
  1345.             OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_TmpPath) $(MAXIMUM_ALLOWED) ECR_BaseKey
  1346.             Ifstr $(ECR_BaseKey) == $(KeyNull)
  1347.  ;               Debug-Output "Creating "$(ECR_TmpPath)
  1348.                 CreateRegKey $(ECR_BaseKeyHandle)  {$(ECR_TmpPath),0,GenericClass} "" $(MAXIMUM_ALLOWED) "" ECR_KeyHandle
  1349.                 Ifstr(i) $(ECR_KeyHandle) == $(KeyNull)
  1350.                     set ECR_Result = $($R0)
  1351.                     goto ECR_Return
  1352.                 Endif
  1353.             Endif
  1354.         Endif
  1355.     EndForListDo
  1356. ECR_Return = +
  1357.     return $(ECR_Result) $(ECR_KeyHandle)
  1358.  
  1359. [DebugExternalGlobals]
  1360.     Set InfName = "OEMNACL.INF"
  1361.     Debug-Output $(InfName)" NTN_Origination = "$(!NTN_Origination)
  1362.     Debug-Output $(InfName)" NTN_InstallMode = "$(!NTN_InstallMode)
  1363.     Debug-Output $(InfName)" NTN_RegBase = "$(!NTN_RegBase)
  1364.     Debug-Output $(InfName)" NTN_SoftwareBase = "$(!NTN_SoftwareBase)
  1365.     Debug-Output $(InfName)" NTN_ServiceBase = "$(!NTN_ServiceBase)
  1366.     Debug-Output $(InfName)" STF_NTPATH = "$(!STF_NTPATH)
  1367.     Debug-Output $(InfName)" STF_NTWINDOWSSYSPATH = "$(!STF_WINDOWSSYSPATH)
  1368.     Debug-Output $(InfName)" STF_CWDIR = "$(!STF_CWDIR)
  1369.     Debug-Output $(InfName)" STF_LANGUAGE = "$(!STF_LANGUAGE)
  1370.     Debug-Output $(InfName)" STF_NCDETECT  = "$(!STF_NCDETECT)
  1371.     Debug-Output $(InfName)" STF_NCOPTION  = "$(!STF_NCOPTION)
  1372.     Debug-Output $(InfName)" STF_NCDETCARD = "$(!STF_NCDETCARD)
  1373.     Debug-Output $(InfName)" STF_NCDETINFO = "$(!STF_NCDETINFO)
  1374.     Debug-Output $(InfName)" STF_INSTALL_MODE = "$(!STF_INSTALL_MODE)
  1375.     Debug-Output $(InfName)" STF_CONTEXTINFNAME = "$(!STF_CONTEXTINFNAME)
  1376.     return
  1377.  
  1378. ;DEL [DebugConfiguration]
  1379. ;DEL     Set InfName = "OEMNIO8P.INF"
  1380. ;DEL     Debug-Output $(InfName)" **CONFIGURATION STATE: "$($0)
  1381. ;DEL     Debug-Output $(InfName)" IRQ_Level is "$(!p:IRQ_Level)
  1382. ;DEL     Debug-Output $(InfName)" IOBaseAddrValue is "$(!p:IOBaseAddrValue)
  1383. ;DEL     Debug-Output $(InfName)" TransceiverValue is "$(!p:TransceiverValue)
  1384. ;DEL     Debug-Output $(InfName)" MemBaseAddrDec is "$(!p:MemBaseAddrDec)
  1385. ;DEL     Debug-Output $(InfName)" MappedValue is "$(!p:MappedValue)
  1386. ;DEL     return
  1387.  
  1388. [AdapterSettings-aclser]
  1389.     set IRQDefault = 5
  1390.     set-hextodec IODefault = 200
  1391. ;    set DnlPath = "\Device\Harddisk1\Partition2\WINNT\"
  1392.     set-hextodec MemWinDefault = 0xEC000
  1393.     set MemSizeDefault = 16
  1394.     set PortListDefault =     {                        +
  1395.                                 { Port1, COM3 },    +
  1396.                                 { Port2, COM4 }     +
  1397.                             }
  1398.     Exit
  1399.  
  1400. [GetDownloadPath]
  1401.     set STF_INSTALL_OUTCOME = STF_FAILED
  1402.     set KeyName = "System\CurrentControlSet\Control\hivelist"
  1403.     OpenRegKey $(!REG_H_LOCAL) "" $(KeyName) $(MAXIMUM_ALLOWED) KeyHandle
  1404.     Debug-Output "Opening key "$(KeyName)
  1405.     Ifstr $(KeyHandle) == $(KeyNull)
  1406.         Debug-Output "Unable to open "$(KeyName)" key!!!!"
  1407.     Else
  1408.         set Value = "\REGISTRY\MACHINE\SYSTEM"
  1409.         GetRegValue $(KeyHandle), $(Value), SystemPathList
  1410.         ifstr $(SystemPathList) == ""
  1411.             Debug-Output "Cannot get value for "$(Value)
  1412.         else
  1413.             Debug-Output "SystemPathList = "$(SystemPathList)
  1414.             set SystemPath = *($(SystemPathList), 4)
  1415.             Debug-Output "SystemPath = "$(SystemPath)
  1416.             Split-String $(SystemPath), "\", PathPartsList
  1417.             set DnlPath = ""
  1418.             ForListDo $(PathPartsList)
  1419.                 Ifstr(i) $($) == CONFIG
  1420.                     goto PathDone
  1421.                 Endif
  1422.                 set DnlPath = $(DnlPath)$($)
  1423.             EndForListDo
  1424. PathDone = +
  1425. ;            set DnlPath = $(DnlPath)\
  1426.             Debug-Output "DnlPath = "$(DnlPath)
  1427.             set STF_INSTALL_OUTCOME = STF_SUCCESS
  1428.         endif
  1429.         CloseRegKey $(KeyHandle)
  1430.     Endif
  1431.  
  1432.     Exit
  1433.  
  1434.  
  1435. [BindingInfo-aclser]
  1436. BindingInfo     = {+
  1437.                   $(AdapterHardwareDriver)"Driver "$(AdapterHardwareDriver)"Adapter non exclusive 100" +
  1438.                   }
  1439.  
  1440. ;---------------------------------------------------- VIV  8/31/1993 begin
  1441. ;[InstallResources]
  1442. ;    set STF_VITAL = ""
  1443. ;    Debug-Output "OEMNIO8P.INF: [InstallResources]"
  1444. ;    AddSectionFilesToCopyList Files-Resource $(!SourceDir) $(!STF_WINDOWSSYSPATH)
  1445. ;    CopyFilesInCopyList
  1446. ;    Debug-Output "OEMNIO8P.INF: [InstallResources] - Exiting"
  1447. ;    exit
  1448. ;---------------------------------------------------- VIV  8/31/1993 end
  1449.  
  1450. ;-----------------------------------------------------------------------
  1451. ; Copy Files from installation disk.
  1452. ;-----------------------------------------------------------------------
  1453. [Install-Option]
  1454.     set STF_VITAL = VITAL
  1455.     Debug-Output "OEMNACL.INF: SystemPath = "$(!STF_WINDOWSSYSPATH)
  1456.     AddSectionFilesToCopyList Files-CP $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1457.     ifstr(i) $(AddCopy) == "YES"
  1458.         AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1459.         AddSectionFilesToCopyList Files-Resource $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1460.     endif
  1461.     ifstr(i) $(DoCopy) == "YES"
  1462.         set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1463.         Debug-Output "OEMNACL.INF: About to copy files"
  1464.         CopyFilesInCopyList
  1465.     else
  1466.         LibraryProcedure STATUS,$(!LIBHANDLE), CopySingleFile $(SrcDir)\ACLCONF.dll $(!STF_WINDOWSSYSPATH)\ACLCONF.dll
  1467.         LibraryProcedure STATUS,$(!LIBHANDLE), CopySingleFile $(SrcDir)\ACLCONF.hlp $(!STF_WINDOWSSYSPATH)\ACLCONF.hlp
  1468.     endif
  1469.     ifstr(i) $(DoConfig) == "YES"
  1470.     endif
  1471.     Exit
  1472.  
  1473. [Source Media Descriptions]
  1474.     1  = "NT Drvlib"
  1475. ;DEL    2  = "Windows NT Setup CD-ROM Disk"  
  1476.  
  1477. [Signature]
  1478.     FileType = MICROSOFT_DRVLIB_FILE
  1479. [GetSignature]
  1480.     read-syms Signature
  1481.     return $(FileType)
  1482.  
  1483. [ProductType]
  1484. STF_PRODUCT  = Winnt
  1485. STF_PLATFORM = I386
  1486.  
  1487. ;DEL [Files-Inf]
  1488. ;DEL 2,    oemsetup.inf,     SIZE=1000,    RENAME=$(!UG_Filename)
  1489.  
  1490. [Files-aclser]
  1491. 1,    aclser.sys     , SIZE=90664
  1492.  
  1493. [Files-Resource]
  1494. 1,    ACLCONF.DLL , SIZE=93760
  1495. 1,    ACLCONF.HLP , SIZE=20760
  1496. ;DEL 1,    STARGATE.BMP , SIZE=21760
  1497.  
  1498. [Files-CP]
  1499. 1,    acl.cp         , SIZE=5460
  1500. 1,    acl2.cp     , SIZE=5482
  1501. 1,    acl2r.cp     , SIZE=5366
  1502. 1,    aclmc.cp     , SIZE=5366
  1503. 1,    a100m.cp     , SIZE=5366
  1504. 1,    a100e.cp     , SIZE=5366
  1505. 1,    a100i.cp     , SIZE=5366
  1506. 1,    aclmcp.cp     , SIZE=5366
  1507.  
  1508. [OptionsTextENG]
  1509.     aclser          = "Star Gate ACL/Avanstar Family Adapter"
  1510.  
  1511. [FileConstantsENG]
  1512.     ProCaption   = "Star Gate Setup"
  1513.     ProCancel    = "Cance&l"
  1514.     ProCancelMsg = "Star Gate Adapters and/or Drivers are not correctly installed. "+
  1515.                    "Are you sure you want to cancel copying files?"
  1516.     ProCancelCap = "Star Gate Setup Message"
  1517.     ProText1     = "Copying:"
  1518.     ProText2     = "To:"
  1519.     Error         = "Unable to determine proper source disk location; copy cannot be performed."
  1520.     FunctionTitle   ="Star Gate Setup"
  1521.     ProductSoftwareDescriptionHdwDriver = "StarGate "$(AdapterTitle)" Driver"
  1522.     ProductSoftwareTitleHdwDriver = "StarGate "$(AdapterTitle)" Driver"
  1523.     ConfigurationTitle = "Star Gate "$(AdapterTitle)" Adapter Setup"
  1524.     ProductHardwareDescription      = "StarGate "$(AdapterTitle)" Adapter"
  1525.     ProductHardwareTitle        = "StarGate "$(AdapterTitle)" Adapter"
  1526.  
  1527. [DialogConstantsENG]
  1528.     Help        = "&Help"
  1529.     Exit        = "E&xit"
  1530.     OK          = "OK"
  1531.     HelpContext = ""
  1532.     Continue    = "C&ontinue"
  1533.     Cancel      = "C&ancel"
  1534.  
  1535. [UpdatingConfigurationENG]
  1536.     UpdatingConfiguration      = "Updating new configuration..."
  1537.  
  1538. [AbortMessageENG]
  1539.   AbortText  =  "Aborting Specialix Setup. Please reboot the system "+
  1540.                 "to fix the problem."
  1541.  
  1542. ; Terminates SrcDir with '\' if it isn't
  1543. [Correct-SrcDir]
  1544. Debug-Output "OEMNACL.INF: SrcDir was "$(SrcDir)
  1545. split-string $(SrcDir) "\" SrcList
  1546. QueryListSize SrcListSize $(SrcList)
  1547. Debug-Output "OEMNACL.INF: List = "$(SrcList)
  1548. Debug-Output "OEMNACL.INF: ListSize = "$(SrcListSize)
  1549. Debug-Output "OEMNACL.INF: LastItem = "*($(SrcList), $(SrcListSize) )
  1550. ifstr *($(SrcList), $(SrcListSize) ) != "\"
  1551.     set SrcDir = $(SrcDir)\
  1552. endif
  1553. Debug-Output "OEMNACL.INF: SrcDir is "$(SrcDir)
  1554. exit
  1555.